function y = Cl_deltarr(x)

 if x >= 0
     c = [0 0 0.185 -0.1854 0.0449 0.0064 5E-06];
     p = [x.^ 6, x.^ 5, x.^ 4, x.^ 3, x.^ 2, x.^ 1, x.^ 0]';
 else
     c = [0 0 -0.185 -0.1854 -0.0449 0.0064 -5E-06];
     p = [x.^ 6, x.^ 5, x.^ 4, x.^ 3, x.^ 2, x.^ 1, x.^ 0]';
 end
 
  y = c * p;
  
end